home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d3 / dbmail.arc / ML0016.PRG < prev    next >
Encoding:
Text File  |  1988-06-19  |  2.1 KB  |  24 lines
  1. NOTE BS1151 - UNPACK MEMBER NAME     1/18/83
  2. STORE @(',',NAME) TO N
  3. IF N>0
  4.     STORE N+1 TO M
  5.     DO WHILE M<31 .AND. $(NAME,M,1)=' '
  6.     STORE M+1 TO M
  7.     ENDDO
  8.     IF M<31
  9.         STORE TRIM($(NAME,M,30-M+1))+' '+$(NAME,1,N-1) TO TNAME
  10.     ELSE
  11.         STORE NAME TO TNAME
  12.         ENDIF
  13. ELSE
  14.     STORE NAME TO TNAME
  15.     ENDIF
  16. RELEASE N,M
  17. RETURN
  18. NDIF
  19. ELSE
  20.     STORE NAME TO TNAME
  21.     ENDIF
  22. RELEASE N,M
  23. RETURN
  24.